Data input

install_load('readxl','dplyr','kableExtra')

## Warning: package 'dplyr' was built under R version 4.2.3

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

## 
## Attaching package: 'kableExtra'

## The following object is masked from 'package:dplyr':
## 
##     group_rows

data <- read_xlsx("data.xlsx", sheet="Laptop")
data <- data[,-c(1,2)]
cat("Jumlah Kolom:", ncol(data), "\n")

## Jumlah Kolom: 7

cat("Jumlah Baris:", nrow(data), "\n")

## Jumlah Baris: 10000

kable(head(data)) %>% kable_styling(bootstrap_options = "striped", full_width = FALSE)

Cek Missing Data

Penting untuk melihat ada tidaknya missing data.

# Mencari indeks baris dan kolom yang mengandung NA
na.idx <- which(is.na(data), arr.ind = TRUE)
cat("Banyaknya data NA : ", nrow(na.idx))

## Banyaknya data NA :  9

# Menampilkan data raw dengan baris dan kolom yang mengandung NA
install_load('kableExtra','dplyr','DT')

## Warning: package 'DT' was built under R version 4.2.3

#Menampilkan tabel
kable(data[                        # Subsetting
                unique(na.idx[, 1]),   # Vektor indeks baris yang mengandung NA
                unique(na.idx[, 2])  ] # Vektor indeks kolom yang mengandung NA
      # Style Tabel
      ) %>% kable_styling(bootstrap_options = "striped", full_width = FALSE)

Hapus Data NA

Karena peubah diatas sulit untuk diduga maka kami putuskan untuk menghapus data NA tersebut.

data <- data[ -unique(na.idx[, 1]),  ]
cat("Jumlah Baris:", nrow(data), "\n")

## Jumlah Baris: 9991

a. Sebaran Brand Laptop

# Membuat bar chart persentase
ggplot(data = data %>% count(Brand) %>% # banyaknya laptop brand x
  mutate(perc = round(n / sum(n) * 100)), #buat persentase
       aes(x = reorder(Brand, -n), y = perc)) +
  geom_bar(stat = "identity", fill='#2D99AE') +
  geom_text(aes(label = prettyNum(n,big.mark = ",")
                ), vjust = -0.5, size = 7, col="orange4", 
            fontface = "bold") + # Tambahkan label
  labs(x = "Brand", y = "Persentase (%)", 
       title = "Sebaran Brand Laptop") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_y_continuous(labels = scales::percent_format(scale = 1)) +
  theme_minimal() + # Tambahkan tema minimal
  theme(axis.text.x = element_text(angle = 45, hjust = 1, 
                                   margin = margin(b = 10)),
        axis.text.y = element_text(vjust = .5, face = "bold", 
                                   margin = margin(l = 20)),
        plot.title = element_text(hjust = 0.5, face = "bold"),
        text = element_text(size = 30),
        plot.subtitle = element_text(hjust = 0.5)
        ) 

b. Brand to dummy variable

Singkat nya peubah Dummy memisahkan setiap kategori ke beberapa kolom. Dengan isi 1 atau TRUE yang kategori nya sesuai, dan 0 atau FALSE untuk kategori lainnya. Seperti contoh gambar di atas.

Namun cara diatas sangat memakan waktu dan memakan memori. Untung nya R dapat mengenali lebih advance yakni dengan tipe variabel factor. Karena factor memiliki level atau urutan nilai kategori yang bisa di ubah sesuka hati. Seperti ini factor(data$Brand, levels = c('HP','Acer',...)). Namun untuk default nya, R mengurutkan berdasarkan abjad.

Terdapat Fungsi relevel() yang digunakan dalam konteks peubah dummy untuk menentukan referensi atau kategori dasar. Namun ini hanya menggantikan posisi level 1, dengan ref yang diberikan. Sisanya mengurut sesuai abjad.

Ketika membuat peubah dummy untuk variabel kategorikal dengan lebih dari dua kategori, R secara otomatis memilih satu kategori sebagai referensi dan yang lainnya sebagai peubah dummy. Referensi yang diubah dapat mempengaruhi hasil analisis regresi karena perubahan dalam perbandingan dengan referensi. Jadi, pemilihan referensi ini perlu diperhatikan dalam konteks analisis statistik.

Berikut beberapa pertimbangan untuk memilih referensi yang baik:

1. Interpretasi yang Jelas: Pilih kelompok referensi yang mudah diinterpretasikan. Ini akan membuat hasil analisis lebih mudah dipahami. Misalnya, jika Anda menganalisis jenis produk (A, B, C), mungkin produk yang paling umum atau biasa digunakan adalah pilihan yang baik untuk referensi.

2. Pentingnya Variabel: Pilih kelompok yang memiliki relevansi atau signifikansi tertentu dalam konteks analisis Anda sebagai referensi. Ini dapat membantu Anda memahami efek perbedaan antara kelompok tersebut dengan kelompok lain.

3. Eksplanasi Variabel Lain: Terkadang pemilihan referensi dapat memengaruhi hasil analisis. Misalnya, dalam analisis regresi logistik, referensi dapat mempengaruhi bagaimana koefisien variabel lain diinterpretasikan.

4. Kemudahan Analisis: Pilih kelompok referensi yang memudahkan perbandingan dengan kelompok lainnya. Ini dapat membuat hasil analisis lebih intuitif dan bermakna.

5. Konteks Bisnis atau Penelitian: Pertimbangkan konteks bisnis atau penelitian Anda. Misalnya, jika Anda sedang melakukan penelitian pasar, referensi yang cocok mungkin adalah produk atau merek yang paling dikenal atau paling banyak digunakan di pasar.

6. Efeknya pada Regresi: Pahami bahwa pemilihan referensi dapat mempengaruhi koefisien dan interpretasi dalam analisis regresi. Koefisien peubah dummy akan mengukur perbedaan antara kelompok referensi dengan kelompok lainnya.

7. Perbandingan yang Relevan: Pastikan perbandingan antara kelompok lain dengan kelompok referensi memiliki makna dalam konteks analisis Anda.

Untuk peubah brand, kami memilih Brand HP Sebagai referensi, karena merupakan kategori dengan jumlah terbanyak.

data <- data %>% 
  mutate(`Brand` = relevel(as.factor(data$Brand), ref = "HP"))
str(data$Brand)

##  Factor w/ 18 levels "HP","Acer","Alienware",..: 11 1 2 6 1 8 6 6 1 11 ...
##  - attr(*, "names")= chr [1:9991] "Lenovo ThinkPad T14 Gen 2" "HP 17" "Acer Predator Triton 300" "ASUS Vivobook 17X" ...

levels(data$Brand)

##  [1] "HP"        "Acer"      "Alienware" "Aorus"     "Apple"     "ASUS"     
##  [7] "Chuwi"     "Dell"      "Fusion5"   "Gigabyte"  "Lenovo"    "LG"       
## [13] "Microsoft" "MSI"       "Panasonic" "Razer"     "Samsung"   "Toshiba"

a. Sebaran Harga Laptop

install_load('ggridges','hrbrthemes','viridis')

## Warning: package 'ggridges' was built under R version 4.2.3

## NOTE: Either Arial Narrow or Roboto Condensed fonts are required to use these themes.

##       Please use hrbrthemes::import_roboto_condensed() to install Roboto Condensed and

##       if Arial Narrow is not on your system, please see https://bit.ly/arialnarrow

## Loading required package: viridisLite

ggplot(data, aes(x=`Price (USD)`, y=Brand, fill=Brand)) + geom_density_ridges() +
  #COLORING
  scale_fill_viridis(alpha = 0.75, #Opacity
                     begin = 0.1, #Color pallte scale begins
                     end = 0.9, #Color pallte scale ends
                     direction = -1, #Flip color scale
                     discrete = T, #Discrete Value
                     option = "D") + #Color Palette
  theme_modern_rc(axis_title_just = "center", axis_title_size = 12) +
  theme(plot.title = element_text(hjust=0.5),legend.position = "none") +
  labs(x = "\nHarga (USD)",y = "Brand Laptop\n", 
       title = "Sebaran Harga Brand Laptop")

## Picking joint bandwidth of 250

## Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): font family
## not found in Windows font database

## Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): font family
## not found in Windows font database

## Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): font family
## not found in Windows font database

## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database

## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database

## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database

## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database

## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database

## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database

## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database

## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database

## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database

## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, :
## font family not found in Windows font database

## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database

summary(data$`Price (USD)`)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     110     810    1236    1487    1799   11812

summary(data$`Price (IDR)`)

##      Min.   1st Qu.    Median      Mean   3rd Qu.      Max. 
##   1689094  12437720  18979121  22838230  27624365 181371689

Dari sebarannya, terlhiat bahwa mayoritas sebaran berdasarkan brand nya, menjulur ke kanan. Artinya lebih banyak harga laptop yang lebih murah daripada yang mahal. Sekitar \(75\%\) laptop harganya dibawah \(1,800\$\) (\(27.6\) jt IDR). Harga laptop paling murah yakni \(110\$\) atau sekitar \(1.7\) jt IDR. Dan Harga laptop paling mahal yakni \(11,812\$\) atau sekitar \(181\) jt IDR.

Contoh Model Linear dengan peubah dummy.

model <- lm(`Price (USD)` ~ `Brand`,data=data)
summary(model)

## 
## Call:
## lm(formula = `Price (USD)` ~ Brand, data = data)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2707.1  -590.7  -194.7   327.5 10325.9 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     1273.32      17.15  74.246  < 2e-16 ***
## BrandAcer         79.01      33.73   2.343 0.019172 *  
## BrandAlienware  1107.63     113.54   9.756  < 2e-16 ***
## BrandAorus      2817.81      93.84  30.029  < 2e-16 ***
## BrandApple       842.14     156.58   5.378 7.69e-08 ***
## BrandASUS        212.38      28.87   7.355 2.05e-13 ***
## BrandChuwi      -914.32     972.13  -0.941 0.346965    
## BrandDell         75.68      36.66   2.064 0.039010 *  
## BrandFusion5   -1073.33     972.13  -1.104 0.269574    
## BrandGigabyte   1301.88     132.18   9.849  < 2e-16 ***
## BrandLenovo      -31.68      30.41  -1.042 0.297602    
## BrandLG          249.14      72.39   3.442 0.000581 ***
## BrandMicrosoft   303.93     175.41   1.733 0.083187 .  
## BrandMSI        1148.00      35.91  31.968  < 2e-16 ***
## BrandPanasonic  2512.93     486.29   5.168 2.42e-07 ***
## BrandRazer       895.57     270.12   3.315 0.000918 ***
## BrandSamsung    -288.01     158.60  -1.816 0.069416 .  
## BrandToshiba     715.68     687.50   1.041 0.297908    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 972 on 9973 degrees of freedom
## Multiple R-squared:  0.1777, Adjusted R-squared:  0.1763 
## F-statistic: 126.8 on 17 and 9973 DF,  p-value: < 2.2e-16

Terlihat bahwa tidak ada Brand HP , karena HP dijadikan sebagai referensi sebelumnya.

a. Sebaran RAM Laptop

# Membuat bar chart persentase
ggplot(data = data %>% count(`Ram (GB)`) %>% # banyaknya laptop brand x
                  mutate(perc = round(n / sum(n) * 100)), #buat persentase, 
       aes(x = reorder(`Ram (GB)`, -n), y = perc)) +
  geom_bar(stat = "identity", fill='#2D99AE') +
  geom_text(aes(label = prettyNum(n,big.mark = ",")
                ), vjust = -0.5, size = 7, col="orange4", 
            fontface = "bold") + # Tambahkan label
  labs(x = "RAM (GB)", y = "Persentase (%)", 
       title = "Sebaran RAM Laptop") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_y_continuous(labels = scales::percent_format(scale = 1)) +
  theme_minimal() + # Tambahkan tema minimal
  theme(axis.text.x = element_text(angle = 45, hjust = 1, 
                                   margin = margin(b = 1)),
        axis.text.y = element_text(vjust = .5, face = "bold", 
                                   margin = margin(l = 20)),
        plot.title = element_text(hjust = 0.5, vjust =0.5,
                                  face = "bold", margin = margin(b = 50)),
        text = element_text(size = 30),
        plot.subtitle = element_text(hjust = 0.5)
        ) 

Terlihat bahwa RAM laptop terbanyak memiliki kapasitas \(16\)GB, sedangkan yang terkecil adalah \(0\)GB.

Ini memang agak aneh, tapi setelah kami cek kembali, ternyata memang ada laptop dengan RAM \(0\)GB.

a. Sebaran Storage Laptop

Pie Chart SSD & HDD

plot.p(dt = storage$`Storage Type`, title = "Porporsi SSD dan HDD")

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ tibble  3.2.1     ✔ purrr   1.0.2
## ✔ tidyr   1.2.1     ✔ forcats 1.0.0
## ✔ readr   2.1.3

## Warning: package 'tibble' was built under R version 4.2.3

## Warning: package 'purrr' was built under R version 4.2.3

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter()          masks stats::filter()
## ✖ kableExtra::group_rows() masks dplyr::group_rows()
## ✖ dplyr::lag()             masks stats::lag()
## 
## Attaching package: 'scales'
## 
## 
## The following object is masked from 'package:purrr':
## 
##     discard
## 
## 
## The following object is masked from 'package:readr':
## 
##     col_factor
## 
## 
## The following object is masked from 'package:viridis':
## 
##     viridis_pal

## Warning: The `guide` argument in `scale_*()` cannot be `FALSE`. This was deprecated in
## ggplot2 3.3.4.
## ℹ Please use "none" instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

Terlihat bahwa \(94.1\%\) laptop memiliki tipe peyimpanan SSD. Sunggu perbedaan yang sangat jauh.

Sebaran SSD

# Membuat bar chart persentase
ggplot(data = storage %>%
        filter(grepl("SSD", `Storage Type`, ignore.case = TRUE))
        %>% count(`Storage (GB)`) %>% # banyaknya laptop brand x
                  mutate(perc = round(n / sum(n) * 100)), #buat persentase, 
       aes(x = reorder(`Storage (GB)`, -n), y = perc)) +
  geom_bar(stat = "identity", fill='#2D99AE') +
  geom_text(aes(label = prettyNum(n,big.mark = ",")
                ), vjust = -0.5, size = 7, col="orange4", 
            fontface = "bold") + # Tambahkan label
  labs(x = "SSD (GB)", y = "Persentase (%)", 
       title = "Sebaran SSD Laptop") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_y_continuous(labels = scales::percent_format(scale = 1)) +
  theme_minimal() + # Tambahkan tema minimal
  theme(axis.text.x = element_text(angle = 45, hjust = 1, 
                                   margin = margin(b = 1)),
        axis.text.y = element_text(vjust = .5, face = "bold", 
                                   margin = margin(l = 20)),
        plot.title = element_text(hjust = 0.5, vjust =0.5,
                                  face = "bold", margin = margin(b = 50)),
        text = element_text(size = 30),
        plot.subtitle = element_text(hjust = 0.5)
        ) 

Laptop dengan total penyimpanan \(1000\) GigaByte ( \(1\) TerraByte) SSD merupakan total penyimpanan yang paling banyak dimiliki oleh laptop.

kable(data[data$`Storage` == "16GB SSD", ]) %>% 
  kable_styling(bootstrap_options = "striped", full_width = FALSE)

Memang agak mengejutkan, bahwa ternyata ada laptop yang hanya memiliki penyimpanan \(16\) GB SSD saja. Tidak ada keterangan Bahwa laptop tersebut memiliki penyimpanan Hybrid dengan tambahan HDD. Namun kami yakin laptop tersebut pasti memiliki penyimpanan HDD tambahan. Karena terlihat bahwa ada laptop yang memiliki Spesifikasi gahar dengan harga yang mahal pula, namun Storage hanya \(16\) GB SSD saja. Laptop tersebut adalah ASUS TUF Gaming A17 dengan harga \(67.4\) jt IDR.

Tapi karena keterbatasan informasi dari data hasil scraping. Kami akan melanjutkan dengan data ini dahulu saja. Jika memungkinkan untuk scraping ulang, maka akan kami scraping ulang.

Sebaran HDD

# Membuat bar chart persentase
ggplot(data = storage %>%
        filter(grepl("HDD", `Storage Type`, ignore.case = TRUE))
        %>% count(`Storage (GB)`) %>% # banyaknya laptop brand x
                  mutate(perc = round(n / sum(n) * 100)), #buat persentase, 
       aes(x = reorder(`Storage (GB)`, -n), y = perc)) +
  geom_bar(stat = "identity", fill='#2D99AE') +
  geom_text(aes(label = prettyNum(n,big.mark = ",")
                ), vjust = -0.5, size = 7, col="orange4", 
            fontface = "bold") + # Tambahkan label
  labs(x = "HDD (GB)", y = "Persentase (%)", 
       title = "Sebaran HDD Laptop") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_y_continuous(labels = scales::percent_format(scale = 1)) +
  theme_minimal() + # Tambahkan tema minimal
  theme(axis.text.x = element_text(angle = 45, hjust = 1, 
                                   margin = margin(b = 1)),
        axis.text.y = element_text(vjust = .5, face = "bold", 
                                   margin = margin(l = 20)),
        plot.title = element_text(hjust = 0.5, vjust =0.5,
                                  face = "bold", margin = margin(b = 50)),
        text = element_text(size = 30),
        plot.subtitle = element_text(hjust = 0.5)
        ) 

Kebanyakan laptop dengan tipe penyimpanan HDD memiliki total penyimpanan \(1\) TerraByte.

b. Scoring Storage

Scoring merupakan salah satu metode untuk mengurangi adanya autokorelasi pada analsis regresi. Untuk mengurangi adanya autokorelasi pada 2 peubah diatas yakni Storage (GB) dengan Storage Type, Maka kami melakukan scoring dengan mempertimbangkan hal berikut:

• Dalam hal kinerja, SSD dapat diperkirakan sekitar \(5\) hingga \(10\) kali lebih cepat daripada HDD dalam hal kecepatan baca/tulis data.

• Dalam hal harga, SSD dapat diperkirakan sekitar \(2\) hingga \(5\) kali lebih mahal per gigabyte dibandingkan HDD.

• Dalam hal kapasitas, HDD dapat memiliki kapasitas yang lebih besar hingga \(2\) hingga \(4\) kali lipat dari SSD dalam harga yang sama.

Pemberian bobot yang lebih merata dengan menggunakan nilai tengah seperti \(\frac{7.5}{3.5}\) untuk SSD dan \(\frac{3.5}{7.5}\) untuk HDD adalah pendekatan yang lebih seimbang dan simetris. Ini memberikan penekanan yang relatif setara pada kedua faktor, baik kinerja (SSD) maupun kapasitas (HDD).

Pendekatan ini menghindari pemberian bobot yang sangat ekstrem dan cenderung memberikan penilaian yang lebih adil terhadap kedua faktor tersebut.

storage <- storage %>%
  mutate(
    `Storage Score` = ifelse(`Storage Type` == "SSD", `Storage (GB)` * (7.5/3.5), 
                           `Storage (GB)` * (3.5/7.5))
  )
kable(head(storage)) %>% kable_styling(bootstrap_options = "striped", full_width = FALSE)

c. Merge Data

data <- data %>%
  mutate(`Storage Score` = storage$`Storage Score`)
kable(head(data)) %>% kable_styling(bootstrap_options = "striped", full_width = FALSE)

a. Refresh Rate

Ada baiknya kita mengetahui bahwa:

• Refresh rate mengukur berapa kali layar dapat menggambar atau memperbarui gambar per detik, diukur dalam Hertz (Hz).

• Refresh rate yang lebih tinggi dapat menghasilkan tampilan yang lebih halus, yang bermanfaat dalam gaming dan aplikasi bergerak cepat.

• Sebagian besar laptop memiliki refresh rate 60Hz, tetapi beberapa laptop gaming mungkin memiliki refresh rate 120Hz atau bahkan lebih tinggi.

Karena kami melihat banyak sekali laptop tanpa refresh rate. Maka kami memutuskan untuk menambahkannya dengan refresh rate minimal pada laptop.

Mengutip dari chat gpt bahwa nilai minimal refresh rate (Hz) pada layar laptop umumnya adalah 60Hz. Layar dengan refresh rate 60Hz sudah cukup umum digunakan dan memberikan tampilan yang lancar untuk sebagian besar tugas komputasi sehari-hari. Beberapa laptop gaming dan monitor mungkin memiliki refresh rate yang lebih tinggi, seperti 120Hz, 144Hz, atau bahkan lebih tinggi, yang dirancang untuk memberikan pengalaman gaming yang lebih halus.

Refresh rate 30Hz mungkin terlalu rendah dan dapat menyebabkan tampilan layar terlihat kurang responsif dan cenderung “berkedip” dalam beberapa kasus. Oleh karena itu, kami memutuskan untuk memberikan nilai 60Hz kepada laptop yang tidak memiliki keterangan refresh rate.

display <- data %>%
  separate(Display, into = c("Screen Size (Inch)", "Resolution", 
                             "Screen Type","Refresh Rate (Hz)" ), 
           sep = ", ", remove = FALSE) %>%
  mutate(
    # Menghapus karakter " dan mengubah menjadi numerik
    `Screen Size (Inch)` = as.numeric(gsub("[^0-9.]", "", `Screen Size (Inch)`)), 
    #Tukar Kolom jika ada hz
    temp = `Refresh Rate (Hz)`,
    #Ubah hz jadi numerik
    `Refresh Rate (Hz)` = ifelse(grepl("Hz", `Screen Type`), 
                                 as.numeric(gsub("[^0-9.]", "", `Screen Type`)), 
                      #Jika tidak ada, beri nilai minimal hz laptop yakni 60 hz
                                 60), 
    `Screen Type` = ifelse(grepl("Hz", `Screen Type`), temp, `Screen Type`)
  ) %>%
  select(`Screen Size (Inch)`, Resolution, `Screen Type`, `Refresh Rate (Hz)`)

## Warning: Expected 4 pieces. Missing pieces filled with `NA` in 6794 rows [1, 2,
## 4, 5, 6, 9, 10, 11, 12, 13, 16, 17, 21, 22, 23, 26, 27, 28, 29, 30, ...].

kable(head(display)) %>% 
  kable_styling(bootstrap_options = "striped", full_width = FALSE)

Cek NA

cat(" Jumlah Screen Size NA  :", sum(is.na(display$`Screen Size (Inch)`)), "\n",
     "Jumlah Resolution NA   :", sum(is.na(display$Resolution)), "\n",
     "Jumlah Screen Type NA  :", sum(is.na(display$`Screen Type`)), "\n",
     "Jumlah Refresh Rate NA :", sum(is.na(display$`Refresh Rate (Hz)`)), "\n"
    )

##  Jumlah Screen Size NA  : 0 
##  Jumlah Resolution NA   : 0 
##  Jumlah Screen Type NA  : 27 
##  Jumlah Refresh Rate NA : 0

na.idx <- which(is.na(display[,3]), arr.ind = TRUE)
kable(data[ unique(na.idx[, 1]), unique(na.idx[, 2]) +3 ]) %>% 
  kable_styling(bootstrap_options = "striped", full_width = FALSE)

b.1 Tipe Layar

Penting untuk mengetahui bahwa:

• Tipe layar mengacu pada teknologi yang digunakan dalam pembuatan layar.

• Beberapa tipe layar umum meliputi:

  • IPS (In-Plane Switching): Layar jenis ini dikenal dengan sudut pandang yang luas dan reproduksi warna yang baik.

  • OLED (Organic Light-Emitting Diode): OLED menghasilkan warna yang kaya dan kontras tinggi.

  • LCD (Liquid Crystal Display): Layar LCD adalah jenis yang umum dan cenderung lebih terjangkau.

  • TN (Twisted Nematic): Biasanya digunakan dalam layar murah dan memiliki sudut pandang yang lebih terbatas.

• Tipe layar dapat mempengaruhi kualitas tampilan, reproduksi warna, dan sudut pandang.

Seperti yang kita lihat pada ###Cek NA, Yang NA Hanya tersisa pada Screen Type saja. Karena setiap layar pasti memiliki tipe nya oleh karena itu kami menanyakan kepada chat gpt “Apa tipe layar minimal pada laptop?” Berikut ulasannnya :
Tipe layar minimal laptop adalah layar LCD (Liquid Crystal Display). Layar LCD adalah teknologi layar yang paling umum digunakan dalam laptop dan perangkat komputer lainnya. LCD menggunakan kristal cair yang berada di antara dua lapisan kaca yang kemudian dikendalikan untuk mengatur cahaya dan menghasilkan gambar.

Dengan demikian kami memutuskan untuk menambahkan Tipe LCD ke kolom Screen Type yang NA

display <- display %>% 
  mutate(`Screen Type` = ifelse(is.na(`Screen Type`), "LCD", `Screen Type`))
kable(
  display %>%
  group_by(`Screen Type`) %>%
  summarise(Total = n())
) %>%  kable_styling(bootstrap_options = "striped", full_width = FALSE)

b.2 Screen Type Value Number

Setelah melihat semua tipe layar yang ada, kami ingin mengubah tipe layar tersebut menjadi numerik berdasarkan kualitas nilai mereka. Kami meminta bantuan chat gpt untuk memberikan nilai tersebut. Sebelum itu penting untuk mengetahui kualitas tipe layar yang ada, sebagai berikut:

1. OLED (Organic Light-Emitting Diode):

   • OLED memiliki kualitas gambar yang luar biasa dengan kontras yang sangat tinggi, warna yang tajam, dan sudut pandang yang luas.

   • Reproduksi warna pada layar OLED sangat akurat dan hidup.

   • Tidak ada pencahayaan latar belakang, sehingga hitam murni dan kecerahan yang luar biasa.

   • Biasanya digunakan dalam TV premium dan beberapa monitor kelas atas.

2. IPS (In-Plane Switching):

   • IPS menawarkan reproduksi warna yang sangat baik dan sudut pandang yang luas.

   • Kontras yang baik dan gambar yang tajam, meskipun tidak sebaik OLED.

   • Digunakan dalam monitor profesional, laptop, dan beberapa TV.

3. LCD (Liquid Crystal Display):

   • LCD dengan panel IPS atau VA dapat memberikan kualitas gambar yang baik dengan harga yang lebih terjangkau.

   • Kualitas gambar bisa bervariasi tergantung pada jenis panel LCD.

   • Digunakan dalam berbagai perangkat, termasuk monitor, laptop, dan TV.

4. TN (Twisted Nematic):

   • TN memiliki waktu respon yang sangat cepat, cocok untuk permainan.

   • Namun, sudut pandang yang terbatas dan reproduksi warna yang kurang akurat.

   • Digunakan dalam monitor gaming yang terjangkau.

Sehingga jika diberi nilai akan menjadi:

1. OLED (Organic Light-Emitting Diode): 9

   • OLED memiliki kualitas gambar terbaik dengan kontras tinggi, warna hidup, dan sudut pandang yang luas. Oleh karena itu, kita memberikan nilai tertinggi.

2. IPS (In-Plane Switching): 7

   • IPS menawarkan kualitas gambar yang sangat baik dan sudut pandang yang luas, meskipun tidak sebaik OLED. Tetapi nilai ini tetap tinggi karena IPS masih merupakan pilihan yang sangat baik.

3. LCD (Liquid Crystal Display): 5

   • LCD dengan panel IPS atau VA dapat memberikan kualitas gambar yang baik dengan harga yang lebih terjangkau. Nilai ini mencerminkan kualitas yang baik tetapi tidak sebaik OLED atau IPS.

4. TN (Twisted Nematic): 3

   • TN memiliki waktu respon yang cepat, tetapi sudut pandang yang terbatas dan reproduksi warna yang kurang akurat. Oleh karena itu, nilai ini lebih rendah.

display <- display %>%
  mutate(
    `Screen Type` = case_when(
      `Screen Type` == "OLED" ~ "9",  `Screen Type` == "IPS" ~ "7",   
      `Screen Type` == "LCD" ~ "5",   `Screen Type` == "TN" ~ "3",    
      TRUE ~ `Screen Type`
    ), `Screen Type` = as.numeric(`Screen Type`)
  )
kable(head(display)) %>% 
  kable_styling(bootstrap_options = "striped", full_width = FALSE)

c.1 Resolusi layar

Penting untuk mengetahui apa itu resolusi layar.

• Resolusi adalah jumlah piksel yang dapat ditampilkan pada layar.

• Resolusi umumnya diukur dalam format “lebar x tinggi” (misalnya, 1920 x 1080), yang menunjukkan jumlah piksel horizontal dan vertikal yang terdapat pada layar.

• Semakin tinggi resolusi, semakin tajam dan detail tampilan gambar dan teksnya.

Karena kami lihat banyak sekali jenis resolusi layar yang punya nama, jadi kami memutuskan untuk melihat semua jenis nya.

kable(
  display %>%
  group_by(`Resolution`) %>%
  summarise(Total = n())
) %>%  kable_styling(bootstrap_options = "striped", full_width = FALSE)

Terlihat bahwa semua namanya adalah seberapa besar kualitas resolusinya, Kecuali PixelSense.

PixelSense adalah tipe layar yang digunakan pada perangkat Microsoft Surface. Ini adalah layar sentuh yang sangat responsif dan mendukung penggunaan pena digital. Layar ini dirancang untuk produktivitas dan kreativitas.

Karena perbedaan inilah, kami memutuskan untuk memberikan bobot pada tipe layar PixelSense, dengan PixelSense \((1.125)\) dan PixelSense Flow \((1.25)\).

“PixelSense” dan “PixelSense Flow” memiliki karakteristik yang berbeda dalam hal kualitas gambar atau kemampuan layarnya. Sehingga memberikan bobot yang sedikit lebih tinggi kepada “PixelSense Flow” \((1.25)\) cukup mencerminkan perbedaan ini.

c.2 Multiply Resolution

Setelah eksplorasi tentang macam-macam tipe layar dan memberi bobot pada mereka, kami akan mengalikan resolusi tersebut. Sehingga resmi menjadi peubah numerik.

display <- display %>% 
  mutate( # Mencari semua kemungkinan pasangan angka dalam kolom "Resolution"
    Resolution_Num = str_extract_all(Resolution, "\\d{2,}"),
    # Mengambil pasangan angka yang memiliki dua angka di dalamnya
    Resolution_Num = sapply(Resolution_Num, 
                            function(x) if (length(x) == 2) paste(x, collapse = "x") else NA)
  ) %>% # Pisahkan "Width" dan "Height" dari "Resolution_Num"
  separate(Resolution_Num, into = c("Width", "Height"), sep = "x", 
           convert = TRUE, remove = FALSE) %>% 
# Berikan bobot jika ada kata PixelSense dalam kolom resolusi
  mutate(
    Resolution = ifelse(grepl("PixelSense", Resolution), 
                              Width * Height * 1.125, 
                              Width * Height)
  ) %>% select(-Resolution_Num, -Width, -Height) 
kable(head(display)) %>%  kable_styling(bootstrap_options = "striped", full_width = FALSE)

d. Display Score

Akhirnya setelah mengubah keempat peubah display diatas menjadi numerik, kami akan menghitung total score yang dimiliki. Scoring merupakan salah satu metode untuk mengurangi adanya autokorelasi pada analsis regresi. Adapun formula untuk display score:

\[ \frac{\mathbf{Resolution\times Screen.Type}} {\mathbf{Screen.Size}} + \mathbf{Refresh.Rate} \]

Resolution dan Screen Type merupakan hal yang berfokus pada kualitas visual dan bisa dipadukan satu sama lain. Akan tetapi hal itu akan sia-sia jika Screen Size nya kecil. Bayangkan anda memiliki resolusi dan tipe layar yang tinggi, namun ukuran layar anda kecil. Apa yang ingin anda liat? Apakah anda menatap layar sangat dengat dengan mata anda? Tentu saja tidak!

Berbeda dengan Refresh Rate yang berfokus pada kecepatan layar. Baik kualitas visual maupun ukuran tidak terlalu mempengaruhi nilai nya. Sehingga kaidah score nya dibuat terpisah dengan penjumlahan.

display <- display %>% 
  mutate_all(rescale, to = c(10, 100)) %>% 
  mutate(`Display Score` = ((Resolution * `Screen Type`) / 
                             `Screen Size (Inch)`) + `Refresh Rate (Hz)`)
kable(head(display)) %>% 
  kable_styling(bootstrap_options = "striped", full_width = FALSE)

Merge Data

data <- data %>% bind_cols(`Display Score` = display$`Display Score`)
kable(head(data)) %>% 
  kable_styling(bootstrap_options = "striped", full_width = FALSE)